   1 .
   2 .
   3 .SLOT
  10 clear 
  20 print ;print 
  30 print "    SLOT MACHINE"
  40 print "  1.  PULLS LEVER"
  45 print "  TRIGGER PULLS LEVER"
  50 for A=1to 1500
  60 next A
  95 clear ;P=1000;W=0;L=0
 100 box 10,20,100,40,1
 110 for A=40to 0step -5
 120 box 55,A,5,5,2
 130 next A
 140 for A=0to 40step 5
 150 box 55,A,5,5,1
 160 next A
 170 CX=-10
 180 CY=-10
 190 print #1,P
 200 for A=0to 10
 210 NT=A
 220 B=rnd (15)+88;C=rnd (15)+88;D=rnd (15)+88
 230 CX=-20
 231 CY=20
 232 TV=B
 233 CX=0
 234 CY=20
 235 TV=C
 236 CX=20
 237 CY=20
 238 TV=D
 240 next A
 245 NT=3
 250 if B=Cif C=Dgoto 1000
 260 if B=Cgoto 1100
 270 if B=Dgoto 1100
 280 if C=Dgoto 1100
 290 if B=100goto 1200
 300 if B=101goto 1200
 310 if B=102goto 1200
 320 if B=103goto 1200
 330 CX=-30
 332 CY=10
 333 print #1,"YOU LOSE"
 334 L=L+1
 335 CX=50
 336 CY=-30
 337 print #1,L
 340 for A=1to rnd (10)+5
 350 P=P-rnd (10)
 360 CX=-10
 370 CY=-10
 380 print #1,P
 390 next A
 400 if P<1goto 2000
 800 CX=-70
 801 CY=-30
 802 print #1,W
 810 if &(23)=8goto 100
 812 if P>30000goto 900
 815 if &(23)=4goto 330
 820 if &(23)=2goto 1000
 830 if &(22)=2goto 1100
 840 if &(21)=2goto 1200
 845 if TR(1)goto 100
 850 goto 810
 900 for A=1to 50
 910 print " BUSTED ",
 920 next A
 930 goto 2020
1000 CX=-30
1001 CY=10
1010 print #1,"JACKPOT"
1020 for A=1to rnd (50)+50
1030 FC=rnd (32)mul 8+2;BC=rnd (32)mul 8-1
1040 P=P+rnd (500)+50
1050 CX=-10
1060 CY=-10
1070 print #1,P
1075 if P>30000goto 900
1080 next A
1085 W=W+1
1090 goto 800
1100 CX=-30
1101 CY=10
1102 print #1,"WINNER"
1109 for A=1to rnd (10)+5
1110 P=P+10
1120 CX=-10
1130 CY=-10
1135 FC=rnd (32)mul 8+2
1140 print #1,P
1150 next A
1160 W=W+1
1170 goto 800
1200 CX=-30
1201 CY=10
1202 print #1,"WIN"
1210 for A=1to rnd (10)+5
1220 P=P+rnd (10)
1230 CX=-10
1235 CY=-10
1240 print #1,P
1250 next A
1260 W=W+1
1270 goto 800
2000 clear 
2010 print "YOU BLEW IT"
2020 print "    TURKEY"
:return ;run 
